proc fib {n} {
    if {$n < 2} {
        return $n
    }
    return [expr [fib [expr $n - 2]] + [fib [expr $n - 1]]]
}

puts [fib 32]
